home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / GNU / GNUPLOTsrc.lha / term / multitos.trm < prev    next >
Encoding:
Text File  |  1996-01-22  |  8.3 KB  |  379 lines
  1. /* GNUPLOT - mtos.trm */
  2. /*
  3.  * Copyright (C) 1994   
  4.  *
  5.  * Permission to use, copy, and distribute this software and its
  6.  * documentation for any purpose with or without fee is hereby granted, 
  7.  * provided that the above copyright notice appear in all copies and 
  8.  * that both that copyright notice and this permission notice appear 
  9.  * in supporting documentation.
  10.  *
  11.  * Permission to modify the software is granted, but not the right to
  12.  * distribute the modified code.  Modifications are to be distributed 
  13.  * as patches to released version.
  14.  *  
  15.  * This software  is provided "as is" without express or implied warranty.
  16.  * 
  17.  * This file is included by ../term.c.
  18.  *
  19.  * This terminal driver supports:
  20.  *   mtos : ATARI Systems MiNT/MULTITOS/MAGIC with external client
  21.  *
  22.  * AUTHOR
  23.  *  Dirk Stadler (email: dirk_stadler@n.maus.de, dirk@lstm.uni-erlangen.de)
  24.  * 
  25.  * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
  26.  * 
  27.  */
  28.  
  29. #ifndef GOT_DRIVER_H
  30. #include "driver.h"
  31. #endif
  32.  
  33. #ifdef TERM_REGISTER
  34. register_term(mtos)
  35. #endif           
  36.  
  37. #ifdef TERM_PROTO
  38.  
  39. /* function-prototypes */
  40. TERM_PUBLIC void MTOS_options(void);
  41. TERM_PUBLIC void MTOS_init(void);
  42. TERM_PUBLIC void MTOS_reset(void);
  43. TERM_PUBLIC void MTOS_graphics(void);
  44. TERM_PUBLIC void MTOS_text(void);
  45. TERM_PUBLIC void MTOS_move(unsigned int x, unsigned int y);
  46. TERM_PUBLIC void MTOS_vector(unsigned int x, unsigned int y);
  47. TERM_PUBLIC void MTOS_linetype(int lt);
  48. TERM_PUBLIC int MTOS_text_angle(int ta);
  49. TERM_PUBLIC void MTOS_put_text(unsigned int x, unsigned int y, char *str);
  50. TERM_PUBLIC int  MTOS_justify_text(enum JUSTIFY mode);
  51. TERM_PUBLIC void MTOS_point(unsigned int x, unsigned int y, int number);
  52.  
  53. /* default to ST high resolution */
  54. #define MTOS_XMAX  640
  55. #define MTOS_YMAX  400
  56. #define MTOS_VCHAR 18
  57. #define MTOS_HCHAR 12
  58. #define MTOS_HTIC  5
  59. #define MTOS_VTIC  MTOS_HTIC
  60.  
  61. #define GOT_MTOS_PROTO
  62. #endif /* TERM_PROTO */
  63.  
  64. #ifndef TERM_PROTO_ONLY
  65. #ifdef TERM_BODY
  66.  
  67. #include <unistd.h>
  68. #include <fcntl.h>
  69. #include <param.h>
  70. #include <process.h>
  71. #include <signal.h>
  72. #include <support.h>
  73. #include <sys/stat.h>
  74. #include <time.h>
  75. #include <errno.h>
  76. #include <aesbind.h>
  77. #include <osbind.h>
  78. #include <mintbind.h>
  79.  
  80. int  MTOS_pause(char *str);
  81. static void MTOS_quit(void);
  82. void MTOS_open_pipe(void);
  83. static void write_pid(void);
  84. static void init_exit(void);
  85.  
  86. /* commands for GPCLIENT */
  87. #define SET_GRAPHICS    'G'
  88. #define SET_TEXT        'E'
  89. #define SET_LINE        'L'
  90. #define SET_ANGLE       'A'
  91. #define SET_JUSTIFY     'J'
  92. #define SET_POINTMODE   'D'
  93. #define GR_MOVE         'M'
  94. #define GR_DRAW         'V'
  95. #define GR_RESET        'R'
  96. #define GR_TEXT         'T'
  97.  
  98. #define PAUSE           'P'
  99. #define PID             'I'
  100. #define QUIT            'Q'
  101.  
  102. /* for creating pipes */
  103. #define PIPE1           "u:\\pipe\\GPLT%d"
  104. #define PIPE2           "u:\\pipe\\gpclient.tmp"
  105. #define NAMESIZE        25
  106. #define SIZE            ((unsigned)sizeof(short))
  107.  
  108. /* default name for client */
  109. #define GPCLIENT1       "gpclient.prg"
  110. #define GPCLIENT2       "gpclient"
  111.  
  112. /* environment */
  113. #define MYENV          "GNUPLOTPATH" 
  114. #define PATH           "PATH"
  115.  
  116. /* some global variables */
  117. static char MTOS_mode = 0;
  118. static int handle = -1;
  119. static int pid = -1;
  120.  
  121. TERM_PUBLIC void MTOS_options()
  122. {
  123.     term_options[0] = '\0';
  124. }
  125.  
  126. TERM_PUBLIC void MTOS_init() 
  127. { 
  128.     char pipe[NAMESIZE];
  129.     char *file, cmd[MAXPATHLEN];
  130.     char const *const ext[] = {"prg", "app", NULL};
  131.  
  132.     if (handle < 0) {
  133.         if (aesid < 0) {
  134.             if ((aesid = appl_init()) < 0)
  135.                 int_error("APPL_INIT failed !", NO_CARET);            
  136.         }
  137.  
  138.         file = findfile(GPCLIENT2,getenv(MYENV),ext);
  139.         if (!file)
  140.             strcpy(cmd,GPCLIENT1);
  141.         else if (file && !strchr(file,'\\') && !strchr(file,'/'))
  142.             strcpy(cmd,file);
  143.         else
  144.             unx2dos(file,cmd);
  145.         if (!shel_find(cmd))
  146.             int_error("Cannot find GPCLIENT !", NO_CARET);
  147.  
  148.         sprintf(&pipe[1],PIPE1,aesid);
  149.  
  150.         if ((handle = open(&pipe[1], O_RDWR | O_CREAT)) < 0) {
  151.             if ((handle = (int)Fcreate(&pipe[1],0)) < 0)
  152.                 int_error("Cannot open PIPE to GPCLIENT !", NO_CARET);
  153.         }
  154.         
  155.         pipe[0] = (char)(strlen(&pipe[1])+1);
  156.  
  157.         if (!shel_write(1,1,100,cmd,pipe)) {
  158.             close(handle);
  159.             handle = -1;
  160.             int_error("Cannot spawn GPCLIENT !", NO_CARET);
  161.         }
  162.            init_exit();
  163.     }
  164.     if (aesid > -1) menu_register(aesid, "  Terminal: mtos");
  165. }
  166.  
  167. TERM_PUBLIC void MTOS_reset() 
  168. {
  169.     short buff;
  170.  
  171.     buff = (short)GR_RESET;
  172.     write(handle, &buff, SIZE); 
  173. }
  174.  
  175. TERM_PUBLIC void MTOS_text() 
  176. {
  177.     short buff;
  178.  
  179.     buff = (short)SET_TEXT;
  180.     if (MTOS_mode != SET_TEXT) 
  181.            write(handle, &buff, SIZE);
  182.     MTOS_mode = SET_TEXT;
  183. }
  184.  
  185. TERM_PUBLIC void MTOS_graphics()
  186. { 
  187.     short buff;
  188.  
  189.     buff = (short)SET_GRAPHICS;
  190.     write(handle, &buff, SIZE);
  191.     MTOS_mode = SET_GRAPHICS ;
  192. }
  193.  
  194. TERM_PUBLIC void MTOS_move(unsigned int x, unsigned int y)
  195. { 
  196.     short x_1, y_1, buff;
  197.  
  198.     x_1 = (short)x;
  199.     y_1 = (short)y;     
  200.     buff = (short)GR_MOVE;    
  201.     write(handle, &buff, SIZE);
  202.     write(handle, &x_1, SIZE);
  203.     write(handle, &y_1, SIZE);
  204. }
  205.  
  206. TERM_PUBLIC void MTOS_vector(unsigned int x, unsigned int y)
  207. { 
  208.     short x_1, y_1, buff;
  209.  
  210.     x_1 = (short)x;
  211.     y_1 = (short)y;    
  212.     buff = (short)GR_DRAW;
  213.     write(handle, &buff, SIZE);
  214.     write(handle, &x_1, SIZE);
  215.     write(handle, &y_1, SIZE);
  216. }
  217.  
  218. TERM_PUBLIC void MTOS_linetype(int lt)
  219. { 
  220.     short lt_1, buff;
  221.  
  222.     lt_1 = (short)lt;
  223.     buff = (short)SET_LINE;
  224.     write(handle, &buff, SIZE);
  225.     write(handle, <_1, SIZE);
  226. }
  227.  
  228. TERM_PUBLIC int MTOS_text_angle(int ta)
  229. { 
  230.     short ta_1, buff;
  231.  
  232.     ta_1 = (short)ta;
  233.     buff = (short)SET_ANGLE;
  234.     write(handle, &buff, SIZE);
  235.     write(handle, &ta_1, SIZE);
  236.     return(TRUE);
  237. }
  238.  
  239. TERM_PUBLIC void MTOS_put_text(unsigned int x, unsigned int y, char *str) 
  240. {
  241.     short x_1, y_1, len, buff;
  242.  
  243.     x_1 = (short)x;
  244.     y_1 = (short)y;
  245.     len = (short)strlen(str) + 1;
  246.     buff = (short)GR_TEXT;    
  247.     write(handle, &buff, SIZE);
  248.     write(handle, &x_1, SIZE);
  249.     write(handle, &y_1, SIZE);
  250.     write(handle, &len, SIZE);
  251.     write(handle, str, (unsigned)len);
  252. }
  253.  
  254. TERM_PUBLIC int MTOS_justify_text(enum JUSTIFY mode)
  255. {
  256.     short j_mode, buff;
  257.  
  258.     j_mode = (short)mode;
  259.     buff = (short)SET_JUSTIFY;    
  260.     write(handle, &buff, SIZE);
  261.     write(handle, &j_mode, SIZE);
  262.     return(TRUE);
  263. }
  264.  
  265. TERM_PUBLIC void MTOS_point(unsigned int x, unsigned int y, int number)
  266. {
  267.     short mode, buff;
  268.  
  269.     buff = (short)SET_POINTMODE;    
  270.     mode = 1;
  271.     write(handle, &buff, SIZE);
  272.     write(handle, &mode, SIZE);    
  273.     do_point(x, y, number); 
  274.     mode = 0;
  275.     write(handle, &buff, SIZE);
  276.     write(handle, &mode, SIZE);
  277. }
  278.  
  279. int MTOS_pause(char *str)
  280. {
  281.     short len, buff;
  282.  
  283.     len = (short)strlen(str) + 1;
  284.     buff = (short)PAUSE;    
  285.     write(handle, &buff, SIZE);
  286.     write(handle, &len, SIZE);
  287.     write(handle, str, (unsigned)len);
  288.     read (handle, &len, SIZE);
  289.     return((int)len);
  290. }
  291.  
  292. static void MTOS_quit()
  293. {
  294.     short buff;
  295.     
  296.     if (pid > -1)
  297.         kill(pid,SIGTERM);
  298.     if (handle > -1) {
  299.         buff = (short)QUIT;
  300.         write(handle, &buff, SIZE);
  301.         close(handle);
  302.     }
  303. }
  304.  
  305. void MTOS_open_pipe()
  306. {
  307.     char pipe[NAMESIZE];
  308.     short len;
  309.     
  310.     if (handle < 0) {
  311.         if ((handle = open(PIPE2, O_RDWR)) < 0)
  312.                 return;
  313.         read(handle, &len, SIZE);
  314.         if (len > 0) {
  315.                 read(handle, pipe, (unsigned)len);
  316.                 close(handle);
  317.                 if ((handle = open(pipe, O_RDWR)) < 0) {
  318.                     fprintf(stderr,"\n\n\33p Can't open Pipe: (%s) Error: (%s) !\33q\n\n",pipe,sys_errlist[errno]);
  319.                     fflush(stderr);
  320.                     return;
  321.                 }
  322.         }
  323.         init_exit();
  324.     }
  325. }
  326.  
  327. static void write_pid()
  328. {
  329.     short buff, mypid, gpclpid;
  330.     
  331.     mypid = (short)getpid();
  332.     buff = (short)PID;
  333.     while (write(handle, &buff, SIZE) <= 0)
  334.         Fselect(100,0L,0L,0L);
  335.     while (read(handle, &gpclpid, SIZE) <= 0)
  336.         Fselect(100,0L,0L,0L);
  337.     write(handle, &mypid, SIZE);
  338.     pid = (int)gpclpid;
  339. }
  340.  
  341. static void init_exit()
  342. {
  343.     Cconout(7);
  344.     write_pid();
  345.     atexit(MTOS_quit);
  346. }
  347.  
  348. #endif /* TERM_BODY */
  349.  
  350. #ifdef TERM_TABLE
  351.  
  352. TERM_TABLE_START(mtos_driver)
  353.     "mtos", "Atari MiNT/MULTITOS/Magic Terminal",
  354.     MTOS_XMAX, MTOS_YMAX, MTOS_VCHAR, MTOS_HCHAR, 
  355.     MTOS_VTIC, MTOS_HTIC, MTOS_options, MTOS_init, MTOS_reset, 
  356.     MTOS_text, null_scale, MTOS_graphics, MTOS_move, MTOS_vector, 
  357.     MTOS_linetype, MTOS_put_text, MTOS_text_angle, 
  358.     MTOS_justify_text, MTOS_point, do_arrow, set_font_null,
  359.     0, TERM_CAN_MULTIPLOT, 0, 0
  360. TERM_TABLE_END(mtos_driver)
  361.  
  362. #undef LAST_TERM
  363. #define LAST_TERM mtos_driver
  364.  
  365. #endif /* TERM_TABLE */
  366.  
  367. #endif /* TERM_PROTO_ONLY */
  368.  
  369. #ifdef TERM_HELP
  370. START_HELP(mtos)
  371. "1 mtos",
  372. "?set terminal mtos",
  373. "?mtos",
  374. " The `mtos` terminal has no options.  It sends data via a pipe to an external",
  375. " program called GPCLIENT. It runs under MiNT, MULTITOS, Magic 3.x and MagicMAC.",
  376. " If you cannot find GPCLIENT, than mail to dirk@lstm.uni-erlangen.de."
  377. END_HELP(mtos)
  378. #endif /* TERM_HELP */
  379.